<script>on mouseUpput cd fld mapname into tempvisual iris closego to card "World Map"repeat 10set the hilite of cd btn temp to trueset the hilite of cd btn temp to falseend repeatend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>144</top>
<right>509</right>
<bottom>170</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal selectedCountryif selectedCountry = "" thenanswer "Please select a country first."exit mouseUpend ifgo to card selectedCountryif the result is not empty thenput "Sorry. No fact card for " & quote &¬selectedCountry & quote & "." into askMsganswer askMsgexit mouseUpend ifend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>482</left>
<top>187</top>
<right>509</right>
<bottom>213</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset cursor to watchglobal selectedCountryif selectedCountry = "" thenanswer "Please select a country first."exit mouseUpend ifput selectedCountry into tempgo to card selectedCountry of stack "Radio"if the result is not empty thenput "Sorry. No list cards for " & quote &¬temp & quote & "." into askMsganswer askMsgexit mouseUpend ifset cursor to browseend mouseUp</script>
</part>
<part>
<id>6</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>483</left>
<top>36</top>
<right>509</right>
<bottom>63</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpvisual effect iris closego to card "radio home" of stack "Radio"end mouseUp</script>
<script>on clickOn buttonNameglobal selectedCountrylock screenif selectedCountry <> "" thenset hilite of cd btn selectedCountry to falseend ifput buttonName into selectedCountryset hilite of cd btn selectedCountry to trueunlock screenend clickOnon openCardput the short name of this card into cd fld MapNameend openCardon closeCardglobal selectedCountryif selectedCountry <> "" thenset hilite of cd btn selectedCountry to falseend ifput "" into selectedCountryend closeCard</script>